home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / Recent1 / MS2LW.lha / MovieLight_esp < prev    next >
Text File  |  1997-02-18  |  3KB  |  125 lines
  1. /* LW utiliza las escenas de MovieShop como sequencias. */
  2. /* Al mismo tiempo, el render de LW es capturado por MovieShop. */
  3. /* Este script genera las imagenes temporales en "Ram:t/" */
  4. /* Cada escena de MovieShop puede consumir 1.3 MB de preciada RAM. */
  5. /* Puedes cambiar el camino de estos ficheros temporales aqui. */
  6. /* Edita este script y reemplaza "ram:t" por "dh1:temporal" (Por ej.) */
  7. /* Se produciran cambios en las lineas 32, 59, 64, 73, 89, 111 y 113. */
  8.  
  9. SAY '   Este script supone que LightWave y el programa MovieShop estan'
  10. SAY '   ejecutandose, y que las escenas que quieres utilizar en el LW'
  11. SAY '   como secuencias se encuentran en la ventana de escenas.'
  12. SAY ''
  13. SAY ''
  14. SAY ' ¿Esta ejecutandose MovieShop y LW?''  S/N'
  15. pull opt
  16. if opt = N then exit
  17.  
  18. OPTIONS RESULTS
  19.  
  20. ADDRESS MOVIESHOP
  21.  
  22. EXPORTPICTYPE FIELDS
  23. EXPORTMETHOD RAWJPEG
  24. EXPORTEXTENSION '.'
  25.  
  26. GOTOSCENE NUMBER 0
  27.  
  28. do g = 1 to 999
  29.   TS = g
  30.   BLOCK MARK
  31.   BLOCK COPY
  32.   EXPORTBLOCK 'ram:t/MSTemp'g
  33.   GOTOSCENE NEXT
  34.   options failat 10
  35.    if (RC=10) then g = 999
  36. end g
  37.  
  38. do f = 1 to 18
  39.   SAY ''
  40. end f
  41.  
  42. SAY '   He chequeado la ventana de escenas.'
  43. SAY '   Tienes' TS 'escenas en el MovieShop.'
  44. SAY ''
  45. SAY ''
  46. SAY '   Ahora debes cargar las secuencias en LW.'
  47. SAY '   Cuando hagas esto vuelve y pulsa RETURN.'
  48. pull @
  49. SAY ''
  50. SAY ''
  51. SAY ''
  52.  
  53. ADDRESS MOVIESHOP
  54.  
  55. NEWSCENE
  56.  
  57. IMPORTPICTYPE FRAMES
  58.  
  59. IMPORTFRAME 'ram:t/MSTemp1.'
  60.  
  61. EXPORTPICTYPE FRAMES
  62. EXPORTEXTENSION '.%03ld'
  63.  
  64. ADDRESS COMMAND 'DELETE >nil: ram:t/MS#?'
  65.  
  66. ADDRESS 'LightWaveARexx.port'
  67.  
  68. SAY '¿Cuantos frames quieres rendear?'
  69. pull FR
  70. say '¿Cual es el frame inicial?'
  71. pull SF
  72.  
  73. 'SaveImages ram:t/VMTransfer.'
  74.  
  75. EF = SF + FR
  76. EF = EF - 1
  77. X = 0
  78.  
  79. do i = SF to EF
  80.     TG = EF - i
  81.  
  82.     ADDRESS MOVIESHOP
  83.     GOTOSCENE NUMBER 0
  84.  
  85.       do h = 1 to TS
  86.           GOTOFRAME NUMBER X
  87.           BLOCK MARK
  88.           BLOCK COPY
  89.           EXPORTBLOCK 'ram:t/MSTemp'h
  90.           GOTOSCENE NEXT
  91.       end h
  92.  
  93.     X = X + 1
  94.  
  95.     ADDRESS 'LightWaveARexx.port'
  96.     SAY 'FRAME RENDERIZADO' i 'A LAS' time()',' TG 'FRAMES PARA TERMINAR.'
  97.    'FIRSTFRAME' i
  98.    'LASTFRAME' i
  99.    'FRAMESTEP' 1
  100.  
  101.    'Render 1'
  102.  
  103.     c = right(i, 3, '0')
  104.  
  105.     d = 'VMTRANSFER.'c
  106.  
  107.     ADDRESS MOVIESHOP
  108.     GOTOSCENE NUMBER TS
  109.     GOTOFRAME LAST
  110.     SAY 'IMPORTANDO FRAME' i 'AL MOVIESHOP'
  111.     IMPORTFRAME 'ram:t/'d
  112.  
  113.     ADDRESS COMMAND 'DELETE >nil: ram:t/#?'
  114. end i
  115.  
  116. ADDRESS MOVIESHOP 
  117. GOTOSCENE NUMBER TS
  118. GOTOFRAME LAST
  119. DELETEACTIVEFRAME
  120.  
  121. Name = 'LWAnim'time()
  122. RENAMESCENE Name
  123.  
  124. SAY 'TOTAL DE FRAMES =' FR '. PROCESO COMPLETADO A LAS' time()
  125.